3.18 \(\int (a+a \csc (c+d x)) (A-A \csc (c+d x)) \sin ^3(c+d x) \, dx\)

Optimal. Leaf size=17 \[ \frac {a A \cos ^3(c+d x)}{3 d} \]

[Out]

1/3*a*A*cos(d*x+c)^3/d

________________________________________________________________________________________

Rubi [A]  time = 0.06, antiderivative size = 17, normalized size of antiderivative = 1.00, number of steps used = 3, number of rules used = 3, integrand size = 30, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.100, Rules used = {3962, 2565, 30} \[ \frac {a A \cos ^3(c+d x)}{3 d} \]

Antiderivative was successfully verified.

[In]

Int[(a + a*Csc[c + d*x])*(A - A*Csc[c + d*x])*Sin[c + d*x]^3,x]

[Out]

(a*A*Cos[c + d*x]^3)/(3*d)

Rule 30

Int[(x_)^(m_.), x_Symbol] :> Simp[x^(m + 1)/(m + 1), x] /; FreeQ[m, x] && NeQ[m, -1]

Rule 2565

Int[(cos[(e_.) + (f_.)*(x_)]*(a_.))^(m_.)*sin[(e_.) + (f_.)*(x_)]^(n_.), x_Symbol] :> -Dist[(a*f)^(-1), Subst[
Int[x^m*(1 - x^2/a^2)^((n - 1)/2), x], x, a*Cos[e + f*x]], x] /; FreeQ[{a, e, f, m}, x] && IntegerQ[(n - 1)/2]
&&  !(IntegerQ[(m - 1)/2] && GtQ[m, 0] && LeQ[m, n])

Rule 3962

Int[(csc[(e_.) + (f_.)*(x_)]*(g_.))^(p_.)*(csc[(e_.) + (f_.)*(x_)]*(b_.) + (a_))^(m_.)*(csc[(e_.) + (f_.)*(x_)
]*(d_.) + (c_))^(n_.), x_Symbol] :> Dist[(-(a*c))^m, Int[ExpandTrig[(g*csc[e + f*x])^p*cot[e + f*x]^(2*m), (c
+ d*csc[e + f*x])^(n - m), x], x], x] /; FreeQ[{a, b, c, d, e, f, g, n, p}, x] && EqQ[b*c + a*d, 0] && EqQ[a^2
- b^2, 0] && IntegersQ[m, n] && GeQ[n - m, 0] && GtQ[m*n, 0]

Rubi steps

\begin {align*} \int (a+a \csc (c+d x)) (A-A \csc (c+d x)) \sin ^3(c+d x) \, dx &=-\left ((a A) \int \cos ^2(c+d x) \sin (c+d x) \, dx\right )\\ &=\frac {(a A) \operatorname {Subst}\left (\int x^2 \, dx,x,\cos (c+d x)\right )}{d}\\ &=\frac {a A \cos ^3(c+d x)}{3 d}\\ \end {align*}

________________________________________________________________________________________

Mathematica [A]  time = 0.01, size = 17, normalized size = 1.00 \[ \frac {a A \cos ^3(c+d x)}{3 d} \]

Antiderivative was successfully verified.

[In]

Integrate[(a + a*Csc[c + d*x])*(A - A*Csc[c + d*x])*Sin[c + d*x]^3,x]

[Out]

(a*A*Cos[c + d*x]^3)/(3*d)

________________________________________________________________________________________

fricas [A]  time = 0.51, size = 15, normalized size = 0.88 \[ \frac {A a \cos \left (d x + c\right )^{3}}{3 \, d} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((a+a*csc(d*x+c))*(A-A*csc(d*x+c))/csc(d*x+c)^3,x, algorithm="fricas")

[Out]

1/3*A*a*cos(d*x + c)^3/d

________________________________________________________________________________________

giac [B]  time = 0.36, size = 56, normalized size = 3.29 \[ -\frac {2 \, {\left (A a + \frac {3 \, A a {\left (\cos \left (d x + c\right ) - 1\right )}^{2}}{{\left (\cos \left (d x + c\right ) + 1\right )}^{2}}\right )}}{3 \, d {\left (\frac {\cos \left (d x + c\right ) - 1}{\cos \left (d x + c\right ) + 1} - 1\right )}^{3}} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((a+a*csc(d*x+c))*(A-A*csc(d*x+c))/csc(d*x+c)^3,x, algorithm="giac")

[Out]

-2/3*(A*a + 3*A*a*(cos(d*x + c) - 1)^2/(cos(d*x + c) + 1)^2)/(d*((cos(d*x + c) - 1)/(cos(d*x + c) + 1) - 1)^3)

________________________________________________________________________________________

maple [B]  time = 0.88, size = 35, normalized size = 2.06 \[ \frac {-\frac {a A \left (2+\sin ^{2}\left (d x +c \right )\right ) \cos \left (d x +c \right )}{3}+A \cos \left (d x +c \right ) a}{d} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

int((a+a*csc(d*x+c))*(A-A*csc(d*x+c))/csc(d*x+c)^3,x)

[Out]

1/d*(-1/3*a*A*(2+sin(d*x+c)^2)*cos(d*x+c)+A*cos(d*x+c)*a)

________________________________________________________________________________________

maxima [B]  time = 0.32, size = 36, normalized size = 2.12 \[ \frac {{\left (\cos \left (d x + c\right )^{3} - 3 \, \cos \left (d x + c\right )\right )} A a + 3 \, A a \cos \left (d x + c\right )}{3 \, d} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((a+a*csc(d*x+c))*(A-A*csc(d*x+c))/csc(d*x+c)^3,x, algorithm="maxima")

[Out]

1/3*((cos(d*x + c)^3 - 3*cos(d*x + c))*A*a + 3*A*a*cos(d*x + c))/d

________________________________________________________________________________________

mupad [B]  time = 0.22, size = 15, normalized size = 0.88 \[ \frac {A\,a\,{\cos \left (c+d\,x\right )}^3}{3\,d} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(sin(c + d*x)^3*(A - A/sin(c + d*x))*(a + a/sin(c + d*x)),x)

[Out]

(A*a*cos(c + d*x)^3)/(3*d)

________________________________________________________________________________________

sympy [A]  time = 10.97, size = 83, normalized size = 4.88 \[ \begin {cases} - \frac {2 A a \cot ^{3}{\left (c + d x \right )}}{3 d \csc ^{3}{\left (c + d x \right )}} + \frac {A a \cot {\left (c + d x \right )}}{d \csc {\left (c + d x \right )}} - \frac {A a \cot {\left (c + d x \right )}}{d \csc ^{3}{\left (c + d x \right )}} & \text {for}\: d \neq 0 \\\frac {x \left (- A \csc {\relax (c )} + A\right ) \left (a \csc {\relax (c )} + a\right )}{\csc ^{3}{\relax (c )}} & \text {otherwise} \end {cases} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((a+a*csc(d*x+c))*(A-A*csc(d*x+c))/csc(d*x+c)**3,x)

[Out]

Piecewise((-2*A*a*cot(c + d*x)**3/(3*d*csc(c + d*x)**3) + A*a*cot(c + d*x)/(d*csc(c + d*x)) - A*a*cot(c + d*x)
/(d*csc(c + d*x)**3), Ne(d, 0)), (x*(-A*csc(c) + A)*(a*csc(c) + a)/csc(c)**3, True))

________________________________________________________________________________________